Garbo/Garbo.cdr/mac/hypercrd/hc2_x/ntsnprst.sit/Net Snooper Stack 2.0d6/background_64252.xml

Extensible Markup Language | 1991-04-19 | 5KB | 139 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>64252</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_9613.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>485</left>
            <top>3</top>
            <right>509</right>
            <bottom>22</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>16560</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpvisual scroll left fastgo nextend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>3</left>
            <top>3</top>
            <right>27</right>
            <bottom>22</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15420</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpvisual scroll rightgo prevend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>89</left>
            <top>2</top>
            <right>436</right>
            <bottom>26</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>18</textSize>
        <textStyle>bold</textStyle>
        <textHeight>24</textHeight>
        <name>Title</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>26</left>
            <top>39</top>
            <right>481</right>
            <bottom>415</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>AllOthersFld</name>
        <script></script>
    </part>
    <name></name>
    <script>on TotalCardlock screenput empty into TypesHolderrepeat with i = 1 to the number of the last card of bkgnd "ZoneInformation"if (not(the suspended) and the shiftKey is "down") thenexit TotalCardend ifgo to card i of bkgnd "ZoneInformation"repeat with j = 1 to the number of lines in fld Othersset cursor to busyput line j of fld Others into TypesTempput last line of TypesHolder into Containerset cursor to busyif TypesHolder is empty thenput TypesTemp into TypesHolderelse if (TypesTemp > Container) thenput TypesTemp into line (number of lines in TypesHolder + 1) of TypesHolderelserepeat with k = 1 to the number of lines of TypesHolderset cursor to busyput line k of TypesHolder into Containerif (TypesTemp = Container) thenexit repeatelse if (TypesTemp < Container) thenput return before line k of TypesHolderput TypesTemp into line k of TypesHolderexit repeatend ifend repeatend ifend repeatend repeatgo to card AllOthersput TypesHolder into fld AllOthersFldset cursor to normalunlock screenend TotalCard</script>
</background>